00100	QQQ    ; FILE GGG
00200	GLISS 0 10;
00300	P2 1;
00400	P3 C4;
00500	P4 2000;
00600	P5 F1;
00700	P6 F4;
00800	P7 C6;
00900	P8 P2;
01000	P9 F5;
01100	END;
01200	
01300	DUMMY INVIS 0 10;
01400	P2 P2;
01500	P3 "SEG(F5);";
01600	P5 1;
01700	P7 MOV/10 1 99*;
01800	P8 1;
01900	P9 100;
02000	END;
02100	
02500	QQQ      ; FILE RRR
02600	TRY1 0 0 6;
02700	P2 RHY/32*;
02800	P3 LIT/"1 0"////*;
02900	RUN;  
03000	
03100	
05000	QQQ    ; FILE MMM
05100	TOOT 0 20;                                                              
05200	P2 RHY/T(8/16//4.)/@$T*;
05300	P3 NOTES/Q(C4/D/EF)/@-Q/@$Q/@$-Q/@$-Q5*;                                 
05400	RUN;                                                                    
05500	
06000	FILT   ;    FILE=WWW
06100	TOOT 0 10;
06200	P2 .2;
06300	P3 SUBL MOV/5 C3 B7/5 B7 C3*;
06400	P4 1000/P5 F1/P6 F3;
06500	P10 1;
06600	END;
06700	
06800	DUMMY INVIS 0 10;
06900	P2 P2;
07000	P3 "SYNTH(F3);";
07100	P4 1;
07200	P5 1;
07300	P6 2;
07400	P7 1;
07500	P8 3/  P9 1/  P10 4/  P11 1;
07600	P12 5/ P13 1/ P14 6/ P15 1/ P16 7/ P17 1;
07700	P18 8/ P19 1/ P20 SUBN 999/END;
07800	
07900	
08000	FILT    ;   FILE = SSS
08100	TOOT 0 10;
08200	P2 .2;
08300	P3 SUBL 1 C2 B7;
08400	P4 1000/P5 F1/P6 F3;
08500	P10 1;
08600	END;
08700	
08800	DUMMY INVIS 0 10;
08900	P2 P2;
09000	P3 "SYNTH(F3);";
09100	P4 1;
09200	P5 1;
09300	P6 2;
09400	P7 0;
09500	P8 3/  P9 1/  P10 4/  P11 0;
09600	P12 5/ P13 .7/ P14 6/ P15 0/ P16 7/ P17 .3;
09700	P18 8/ P19 0/ P20 SUBN 999/END;
09800	
09900	
10000	STEPS  ; TYPICAL INPUT FOR MICROTONE SUBROUTINE. -- SSX
10100	CLAR  0 0 ;
10200	P2 .3;
10300	P3  A3/P4 1000;
10400	P5 F1/P7 F4/P10 1;
10500	P11 NUM/0/1/2/3/4/5/6/7/8/9/10/FINE*;11/12/FINE*;/13/14/15/16/17/18;
10600	P12 10 SUBR;
10700	END;  
10800	TOOT ;
10900	DUPL 1;
11000	P6 F3;
11100	P3 SUBN;
11200	END;
11300	
11400	
12000	QQQ       ;  FILE=FRI
12100	BUZZ 0 16 ALL;
12200	P2 .36/P5 F2/P4 700/P9 SUBL F6;
12300	P3 MO;
12400	4  G1,G2  D3,D4 / 4 D3,D4  G1,G2;
12500	4  G1,G2  D3,D4 / 4 D3,D4  G1,G2;
12600	4  G1,G2  D3,D4 / 4 D3,D4  G1,G2;
12700	4  G1,G2  D3,D4 / 4 D3,D4  G1,G2*;
12800	P32 .6/END;
12900	
13000	TOOT ;
13100	P2 .12 ALL;
13200	P5 F1 ALL;
13300	P3  1 C3,C7;
13400	P4 500/P32 .15/P6 SUBL F3/END;
13500	
13600	CLAR ;
13700	P4 100/P7 SUBL F4;
13800	P3 MO/8  C1,C3  G5,G6/ 8 G5,G6  C1,C3*;
13900	END;
14000	
14100	BRIT ;
14200	P2 .18/ P4 600/ P5 F2/ P32 .25/ P8 SUBL F5;
14300	P3 .33 C4,E  .33 B,D5  .34 G,BF/END;
14400	
14500	BRIT 5.5;
14600	P3 1 BF4,D5/END;
14700	
14800	BRIT 10.5;
14900	P3 .33 B4,D5  .33 B5,D6  .34 B3,B4/END;
15000	
15100	
16000	QQQ         FILE=POP
16100	TOOT 0 25 ALL;
16200	P2 1 .12 2 ALL;
16300	P3 1 C2,C6 ALL;
16400	P4 50 ALL;
16500	P5 F1 ALL;
16600	P6 F3 ALL;
16700	P7 F4 ALL;
16800	P8 F5 ALL;
16900	P9 F6 ALL;
17000	P10 ALL .45 0,0   .2 .5,.5   .35 1,1;
17100	P11 ALL SUBR .3;
17200	END;
17300	CLAR ;
17400	END;
17500	BRIT ;
17600	END;
17700	BUZZ;
17800	END;
17900	
18000	
18050	<<<  FILE=SX
18100	<*******  STEREO INST. WITH DYNAMIC STEREO CONTROL IN P6 AND P8
18200	
18300	NCHNS=2;
18400	SPEED=13;
18500	
18600	COMPILE;
18700	INSTRUMENT STER;
18800	OSCIL[10](P4,10*MAG/P2,P5);
18900	COSCIL(U1,P3*MAG,P7);< P7 IS TONE COLOR FOR 'CLAR'
19000	OSCIL [10] (1, 10*MAG/P6, P8); < STEREO CONTROL
19100	OUTA←OUTA+U2*U3;OUTB←OUTB-U2*(1-U3);END;
19200	FINISH;
19300	
19400	SEG(F6);0 1  0 20   1 80  1 100;<RAMP (OF A SORT)
19500	
19600	PLAY; STER 0 1 A 1400 F1 1 F4 F6; FINISH;